COMMENT ā VALID 00002 PAGES C REC PAGE DESCRIPTION C00001 00001 C00002 00002 (DECLARE (SPECIAL N)(FIXNUM N)) C00006 ENDMK Cā; (DECLARE (SPECIAL N)(FIXNUM N)) (SETQ N 0) (DEFUN TAK (X Y Z) (SETQ N (1+ N)) (COND ((NOT (< Y X)) Z) (T (TAK (TAK (1- X) Y Z) (TAK (1- Y) Z X) (TAK (1- Z) X Y)))))